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COOOOO' 
000000- 



lOMOOX 
MODULE 
.TITLE 
DOXCOV 



m 



'''U 



nmr- mn 

000026' 15C00C 



im 



urn- 

00^112' 

mm- 



000000 
000000 



000000 

oooooo 

000000 

MB 

Oooooo 
oooooc 

ooocoo 

oooooo 



00 oooc- 
oo CO 61 



<RSAI >#17204g, 204, 5,0, 0,130 
150000,R§A| ,175C45,2e^,5,0,i 
RSAI OEC/Xil SYSTEM EXERCrSER 
VERSION 6 23-MAY-7fi 

.LIST BIN 
J****************** 



Q.#61,BUFINt25 6.,10 24. 

0, 1300., 61, BUFIN, 256. ,1024. 



040 



BEGIN: 




modnam: 


.ASCII /RSAI / 


xflag: 


.BYTE OPEN 


mu,: 


imr*' 


BRl: 


.BYTE PRTY5*0 


BR2: 


.BYTE PRTYO+0 
DPEN 


Dvfpi: 


OPEN 


im 


OPEN 


OPEN 


. ****** 


**************** 


STAT: 


150000 


spoint: 


MODSP 


PASCNT: 


C 


icont: 


1300. 


imv,\ 


s 


hrdcnt: 


c 


SOFPAS: 




g?!?*?; 




rannum: 





CONFIG: 




RESl: 





inr- 



OPEN 


SVRI: 


OPEN 


SVR2: 


OPEN 


SVR3: 


OPEN 


iv'g^i 


OPEN 


OPEN 


SVR6: 


OPEN 


CSRA: 


OPEN 


imv 


OPEN 


wasadr: 




STAT: 


OPEN 


ERRTYP; 




ilU: 


OPEN 


OPEN 


?STRT: 


RESTRT 


sdfr: 


8?|!i 


intr: 


OPEN 


idnum: 


61 



*************************************************** 

JMODULE NAME. 

?USED TO KEEP TRACK OF WBOFF USAGE 

in? mm m&R. 

JIST RR LEVEL. 

?2ND BR LEVEL. 

?DEVICE INDICATOR 1. 

;SWITCH REGISTER 1 

JSWITCH REGISTER 2 

?SHITCH REGISTER 3 

ISWITCH REGISTER 4 
************************************************** 



TART ADDR. 
TACK POINTER. 



;STATUS WORD. 

mm inn 

JPASS COUNTER. 

?» OF ITERATIONS PER PASSn300. 

;LOC TO COUNT ITfRAIIONS 

;LOC TO SAVE TOTAL SOFT ERRORS 

?LOC TO SAVE TOTAL HARD ERRORS 

?LOC TO SAVE SOFT ERRORS PER PASS 

JLOC TO SAVE HARD ERRORS PER PASS 

;# OF SYS ERRORS ACCUMULATED 

;HOLDS RANDOM # WHEN RAND MACRO IS CALLED 

JRESERVED FOR MONITOR USE 

?RESERVBD FOR MONITOR USE 

;RESERVED FOR MONITOR USE 

jLOC TO SAVE RO. 

;LOC TO SAVE Rl. 

;LOC TO SAVE R2. 

JLOC TO SAVE R3. 

JLOC TO SAVE R4. 

JlOC to save R5. 

;L0C TO SAVE R6. 

;ador of current CSR. 
?addr of good data, or 
jcontents of csr. 

?ADDR OF BAD DATA, OR 
^STATUS REG CONTENTS. 
JTYPE OF ERROR 
;EXPECTED data. 
JACTUAL DATA 



;RESTART address after end OF PASS 



;mo 

MO 
?t OF INTERRUPTS PER ITERATION 
JMODULE IDENTIFICATION NUMBER=61 



SiMrS^S^fll SYSTEM EXERCISER MODULE 
XRSAIO.PU 12-0CT-78 12:16 



mi 



066 

ill 

000 
000 



30' OuOOOu 




MACYll 30A(1052) 12-0CT-7B 17:03 PAGE 7 



RRUFVA: BUFIN 
RRUFPA: OPEN 
RBUFEA: OPEN 
RBUFSZ: 256. 
HBUFPA: OPEN 
W8UFEA: OPEN 
WBUFRQ: 1024. 
HBUFSZ: OPEN 

CDERCT: 

CDWDCT: 
FREE : 



OPEN 
OPEN 
OPEN 
.RFPT 



SPSIZ 



.WORD 
.LIST 

MODSP: ''''' 

.*************»********yt** 



iHgllS X?.R|pkADBR|ss_ 



SIZE OF THE READ BUFFER 
HSJIi MtU^ PHYSICAL EddRESS 



?WRIT^ BUFFER EA BI_ 
'^5111 BUPPER SIZE REQUgSTED 
iSSIILil'EP'^'' SIZE avaicabCe 
'SR!I^^,R4^C'^ ERROR COUNT 
;CDATA/DATCK WORD COUNT 
yRESERVED FOR FUTURE USE 
?MOnULE STACK STARTS HERE. 



****ft**it*****li*1t*itlrlfic-kit*liit*inele«»*ls»it*itititiimii 






QEC^Xll SySTKM EXRRCISER MODULE 

177624 




002554 
002576 



000124' 
002550 



002524 



MACVll 
START: 



3C^(1C»52) 12-0CT-78 17:03 PAGE 9 



002672 

mm 



2$: 
35: 



1$: 

go: 



C04')35 
004025 



13/INTR 

CNT 

FLAG 

DLTCNT 

DVIDl/DVICE 

PVICE, DRIVE 



MOV 
MOV 
MOV 

CLP 

CLRB 

CLR 

MOV 

MOV 

CMPB 

8NE 

MOV 

MOVB 

MOV 

TSTP 

BEQ 

ASL 

DECB 

INC 

BR 

BITB 

BEQ 

MOV 

JSR 

MOV 
MOV 
JSR 
JSR 
TST 
BFO 



GETPAS/BEGIN, RBUFVS 
MOV RPUFS7./WCNT2 
NEG WCNT2 




#-8.,BLKl 
|-1,DRYVE 
PC/SETtlP 



PC^REZET 
DVICE 



JSR 

GWBUFS, 

MOV 

NEG 

JSR 

m 

BITB 

BNE 

JSR 

BR 

JSR 

BR 

CLRR 

JSR 

BR 

BITP 

BEO 

BICn 



PC, BLOCK 
lEGIN 




jlQ24.,HORDS_FRpM MEM/ 



I TERATIOW 
,,-- ■W0R6§"'Tb' MEM.ITfeRATION 
;3 INTERRUPTS/ITERATION 
} ZERO END OF PASS TESTER 
} CLEAR FLAGS 

JCLEAR DATA LATE ERROR COONTER 
; GET DRIVE INDICATOR 
; ALSO SAVE IT IN DRIVE 

;IF THIS^DEVICE IS NOT THE LOAD MEDIA THEN 
;GQ TO 3$ 

?LOAD R2 WITH DRIVE NUMBER 
?GET DRIVE NUMBER 

?ORIVE MASK: INITIALISE TO DRIVE 
JIF DRIVE FdUND THEN 
JGO TO 2$ 

JELSE SHIFT MASK TO NEXT DRIVE 
;DOWNCOUNT DRIVE f 
?UPDATE DRIVE NUMBER 



JCHECK AGAIN 
?tF CRIVE NOT 



;G0 TO 3$ 
"ET 



SELECTED TO BE TESTED THEM 



?ELSE SET UP TO DROP DRIVE 
;ano go DROP IT 

; INITIALIZE BLOCK COUNTER 
} INITIALIZE DEVICE COUNTER 

} DROP THE MODULE ? 
? YES 

5GET PHYSICAL ADDRESS FROM 16-BIf RBUFVA 
; SAVE READ BUFFER SIZE 
; GET THE 2'S COMPLEMENT 



; GET NEXT BLOCK NUMBER* DISK 
JGET WRITE BUFFER INFORMATION 



DISK ADDRESS 



; SftVE WRITE 
- GET THE 2' 



BUFFER SIZE 
S COMPLEMENT 

DRESS 



I SI? 6R?«IFLt?S''?= 

; NO/ GO DROP THE MODULE 

J ALL DRIVES DONE ? 

t If gS^^GO^GET ANOTHER BLOCK 

; IS DRIVE READY ? 

; YES/ CONTINUE 

; NO, GO WAIT FOR IT 

; CONTINUE 

} ZERO RETRY COUNTERS 

? irfRITE SOME DATA 

? IF ERRORS, TRY IT AGAIN 

; DTD THE DISK OVERFLOW ? 

; NO, CONTINUE 

; YES, CLEAR THE OVERFLOW FLAG 



RSAI DEC/Xll 
XRSAIO.P ■ 



i? 



SYSTEM EXERCISER MOnffLR 
12-nCT-78 12:16 
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000570' 



00660- 

000604' 

000606- 

nv:/: 

000622' 000624' 
000624' 104413 

000630' 000722 



012767 

mm 

600426 
00 45 67 



177770 002366 



000000' 000126' 



MOV 

PR 

JSR 

BR 

JSR 



R5 * UK 1 J 
RETPY2 



K5/READ 
UK RETPY3 
CDATA$, BEGIN, RBUFPA 

ENDITS#BEGIN 



SEQ 0908 



RESET THE BLOCK NUMBER 

■^IfP SHiS^A|„pGG|NING OF DISK 



BR 



NEXT 



WRlfE-CHBCK"fHi"DAlr 
7 IF ERRORS, TRY AGAIN 
; READ THE DATA WRITTEN 
} IF ERRORS, TRY AGAIN 
; REQUEST FDR MONITOR TO CHECK DATA 
? IF ERROR, CONTINUE 
JSIGNAL END OF ITERATION, 



RSAI DEC/Xll Sy 
XRSAIO.PII 1 



STEM EXERCISER MODULE 
-78 i2:16 
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SEQ 0009 



QQ0632- 
000612' 



104410 000000* 



FINIS 

} 



ENDS,PEGIN 



DROP THE MODULE 



000636' 
000642' 
Ri^S^SO' 
000652' 
000660' 



10526*7 003750 

122767 000003 003742 

104403 000000' 004544' 
000424 



INCP TRYl 
CHPP #3, TRYl 
BNE GO 
MSGN$,REGTNtEXCEDl 
BP NEXTA 



} COUNT THE RETRYS 

? LIMIT EXCEEDED ? 

? NO, GO TRY IT AGAIN 

JASCII MESSAGE CALL WITH COMMON HEADER 

? GO ON TO NEXT DRIVE 



105267 

hum 

104403 
000412 




000742' 
000746' 
00f^754- 



003725 

00O0O3 003717 

000000' 004552' 



105267 003702 

'"2767 000003 003674 

4403 COOOOO' 004560' 
000400 



32767 000001 177056 
4767 



000000' 004566* 
177516 



NEXTA: 
IS! 



RY2 



INCB 

CMPB 

BNE GO 

MSGN$,BEGTN£.EXCED2 

BR NEXTA 



TRY2 



INCB TRY3 
CMPB t3i:TRY3 
BNE GOB 
HSGNS, BEGIN, EXCED3 
PR NEXTA 



COUNT RETRYS 




; LIMIT EXCEEDED ? 

; NO, TRY AGAIN 

?ASCIT MESSAGE CALL WITH COMMON HEADER 

J GO ON TO NEXT DRI?E 



; COUNT RETRYS 

; LIMIT EXCEEDED ? 

; NO, GO TRY AGAIN 

;ASCII MESSAGE CALL WITH COMMON HEADER 

J GO ON TO NEXT DRIVE 



} DROP THE 
- NO^ SKIP 



DRIVE 
^Q_NEXT DRIVE 



BIT #BIT0,SR1 

Wc;« 15 ^„„ / ""« sn.ir TU NURT UK1¥E 

JSP PC, DROP 5 YES, DROP OFFENDING DRIVE 

MSGNS^BEGiLdRP ;ASCII mSsSAgS call WITH Common HEADER 

JMP NEXT } GO ON TO NEXT DRIVE 



.MACRO 
LINEUP 

.NLIST 

ASL 
ASL 
ASL 
ASL 

MOV 



EABITS ; LINE UP EA BITS FOR RHCSl 
J LINE UP EA BITS FOR RHCSI 



EABITS, RO 

RQ 
RO 
PO 

RO,XMEM 



GET EXTENDED MEMORY BITS 
SHIFT 4 PLACES TO THE LEFT 
TO LINE UP WITH RHCSl 



? SAVE THE SHIFTED PITS 



.ENDM LINEUP 



RSAI DEC/Xll SYSTEM EXERCISER MODULE 
XRSAIO.PU 12-OCT-78 12:16 



MOV 

MOV 

MOV 

LINEUP 

MOV 

BP 

MOV 

MOV 

MOV 

LINEUP 

MOV 

BR 

MOV 

MOV 

MOV 

LINEUP 

MOV 

BP 
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RS DISK 

lfl61,FUNC 

WCNT1,PRHWC 

WBUFPA,aRHBA 

WBUFEA 

RLKl,(aRSDA 

GOGO 

#151,FUNC 

WCNTl,aRHWC 

WPUFPA,aRHBA 



»171,FUNC 

WCNT2,(aRHWC 

RPUFPA,0RHBA 

RBUFEA 

BtK2,»RSDA 



DPYVE,faRHCS2 

BIT14,(1RHCS1 
k5 

DPYVE,gRHCS2 
#NTPUPT,iaVECTOR 
pDDR22,ftSSl 

0RHRA,PA18 

XMEM 

XMEM 

XMEM 

XMEM 

BEGIN, PAIR 

PA22,fflRHBA 

EA22#'aRSBAE 

34,6A22 
_ft22 

EA22,XMEM 
XMEM^FUNC 
FUNC,'aRHCSl 
GIN 



IVERS 
LOAD 
LOAD 
LOAD 
LINE 
LOAD 
CONTI 
LOAD 
LOAD 
LOAD 
LINE 
LOAD 
CONTI 
LOAD 
LOAD 
LOAD 
LINE 
LOAD 
CONTI 



WRITE FUNCTION 

WORD COUNT 

BUFFER ADDRESS 

UP EA BITS FOR RHCSl 

DISK ADDRESS 

NUB 

WRITE-CHECK FUNCTION 

WORD COUNT 

BUFFER ADDRESS 

UP EA BITS FOR RHCSl 

DISK ADDRESS 

READ FUNCTION 

WORD COUNT 

BUFFER ADDRESS 

UP EA BITS FOR RHCSl 

DISK ADDRESS 

NUE 



LOAD UNIT ADDRESS 

CLEAR ALL DISK ATTENTION SUMMARIES 

CLEAR ANY CONTROLLER ERRORS 

RETURN 

LOAD UNIT SELECT 

SET INTERUPT ENTRY POINTER 
22 BIT ADDRESSING? 
NO 

GET LOWER 18 BITS 
SHIFT AE BITS INTO LOC 4*5 



;lqad ba'rII' ''-"" *'^°'' ''^°" l^-«" *°°« 

?LpAD BAE REG 



?CLEAR UNWANTED BITS 

;LOCATE BITS 16,17 

?T0 LOAD INTO CSl 

} LOAD EXTENDED MEMORY BITS 

; EXECUTE THE FUNCTION 

?BXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



flRfS/fEGIN,li "";'QuiuE'uFTo"cONTINUE'AT"ls'"AND'RTl' 



R5, ERRORS 
R5 

(P5) + 
R5 



5 GO CHECK FOR ERRORS 

; ERRORS DETECTED, RETURN 

; NO ERRORS, SKIP RETRY 

? RETURN OK 
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SEQ 0011 



m 



m 

0013 



001454' 



nm 

012767 

005002 

mm 

160001 

wm\ 

00 6267 

mm 

152767 

hmn 

032777 
001 

?'::_. 

003451 



1627C1 
003435 

Wml 

066702 



oloooo 

000200 

mm 



000001 
002000 

000002 



01016 

mi mm 



000001 
001000 



001000 
000400 



000001 
000400 



001570 
003203 



000004 002622 

001536 
001532 
004000 



003133 
002552 



003037 



mm 



100000 

000001 003001 



000001 002767 



000004 00 2747 



2$: 



3S: 

4S: 

5S: 
65: 



MOV 
MOV 
MOV 
CLR 

SUB 
CMP 

m 

ASR 
CMP 
BLE 
CMP 
BGT 
BISB 

BIT 

BNE 

ASR 

CMP 

BLE 

CMP 

BGT 

BISP 

SflB 

BR 

CMP 

PLF 

CMP 

PGT 

BISB 

SUB 

TST 

PLE 

ADD 

DFX 

BGT 

TST 

BPL 

BIC 

BITB 

BEO 

BR 

BITP 

BNF 

CMP 

BLT 

TST 

RTS 

BISB 

RTS 



#128./BSIZ 
R2 

WBUFS^/R3 ' 




024. /Rl 

il024./Rl 

#BTTl,aRSOT 
IS 

|fi54.,Rl 
|512.,R1 

#BITO,FLAG 
i^512./Rl 

|il2.,Rl 
#256. ,Rl 

»ilTO,FLAG 
*t256.,Rl 

?! 
BSI7.,P2 

#ftlTl5,R3 
fPITO^FLAG 



#PITO/FLAG 

R2^P3 

65 

(R5) + 

R5 

*^PIT2,FLAG 



?F&T„THE„CURRENT BLOCK NUMBER 
;LOAD THE MAX. NUMBER OF BLOCKS 
ySET BLOCK SIZE TO HI DENSITY 
JZERO REG. 2 
;CLEAR 32ff INDICTOR 
;GET the TRANSFER SIZE. 
?GET # OF BLOCKS LEFT ON DISK 
;IS THIS ft RS03/LA ? 

;Na 

;SET SECTOR SIZE 

no 32 WO/SECTOR 

;PLrNTY OF ROOM LEFT? 

;YES ERROR 

JMORE THEN 32K LEFT? 

JNO CONTINUE 

5YES SET THE INDICATOR 

;SUB 32K OF BLOCKS 

?HI DENSITY DRIVE? 

;YES/ CONTINUE 

} NO^ SET BLOCK SIZE 

JLQW DENSITY. PLENT" 

;YESr ERROR 

TMORE THAN 32K LEFT? 

;no, continue 

;YES, SET THE INDICATOR 

^SUBTRACT 32K WORTH OF BLOCKS 

?G0 GET TOTAL NUMBER OF WORDS LEFT 

;HIGH DENSITY. PLENTY OF ROOM LEFt? 

;VES* ERROR 

?more than 32k left? 

j no, continue 

;yes, set the indicator 

? subtract 32k worth of blocks 

;any blocks left on disk? 

?N0, RETURN OK 

?GET total » OF WORDS LEFT 

?ALL BLOCKS ADDED IN? 

;N0, KEEP ADDING 

?PEQUEST LARGER THAN 32K? 

. ..A „ DITIO 



OF ro6m 



LEFT? 



. NO, GO CHECr THAT CONDI 
JYES, GET RID OF 32K 



ION 



jmqrI than 32K LEFT? 

}m, RETURN OK 

;YES, go COMPARE 

?MORE THAN 32K LEFT? 

?YES, PLENTY OF ROOM, ERROR 

;ENOUGH ROOM FOR THE TRANSFER? 

?N0, RETURN OK 

JMUST BE A REAL ERROR 

;RETURN INDICATING THE ERROR 

;SET OVERFLOW FLAG 

; RETURN OK 



RSAI DEC/Xll SYSTEM EXERCISER MODULE 
XRSAIO.Pll 12-0CT-78 12:16 

444 
445 
446 
4 47 
44B 
449 
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4$: 
5$: 



002150 
176004 



000000' 004222' 



^10Q67 
" )45 67 
^^•205 
00 4567 
905725 
no 1205 



002130 
177036 



RS: 



TST 

BPL 

PIT 

BEQ 

JSR 

BR 

JSR 

TST 

BPL 

INC 

BIT 

BNE 

MSGNS, 

PR 

PIT 

BNE 

BIT 

BNE 

BIT 

BMF 

BIT 

BNE 

TST 

BNE 

CLP 

• ***** 

HPDER? 

• ***** 

PR 



MSGNS/BEGTN/TRERR 

PR 55 



MSGNS, BEGIN, MCPERR 
BR 55 



MSGNS, BEGIN, MDPERR 



«RHCS1 

|piT9,(aRSER 

R5,R00M 

95 

PC,ERSUB1 : 

(aRHCS2 ' 

lis 

DLTCNT 

|PIT2,SR1 ; 

BEGIN, DLTERR [ 

iff^IT14,faPHCSl ; 

25 

|PIT13,aRHCSl ; 

|BlTR,(aRHCS2 ; 

#"IT14,aRSDS ' 

WPSAS 

55 ; 

^^gSETYP JUNKNOWN 
**********i^***i,**i 



ATTENTION OR ERROR ? 

NO, GO ON TO NEXT FUNCTION 

ADDRESS OVERFLOW ? 

NO, CONTINUE 

YES, IS IT A REAL ERROR ? 

NO, CONTINUE 

LOAD ERROR INFORMATION 
IS THIS A DATA LATE ERROR? 
NO 

4BSr-lr,J5„RiT* LATER ERROR COUNTER 
TYPE ERROR? 
NO 
ASCII MESSAGE CALL WITH COMMON HEADER 

TRANSFER ERROR ? 

YES 

MftSSBUS CONTROL PARITY ERROR ? 

MASSBUS DATA PARITY ERROR ? 

YES 

ANY DRIVE ERRORS ? 

YES 

ANY ATTENTIONS ACTIVE ? 

YES, CONTINUE 
ERPOf 
****************************** **■»*■*■* iiif» 

^PECIAL CONDITION SET BUT MO REASON FOUND 
********************************** *'ii,it^^'^" 



pRSAS 
6 5 
PC, WHO 
RHDP,RC 
gPHCS2 

^7EP0,RHDB 
»30^F,PRTYP 



• *********** 

HRnER5, BEGIN, TABLE 
******************* 



TST 

BFQ 

JSP 

MOV 

TSTB 

BMI 

MOV 

MOV 



*4 

? RETURN 

?ASCII MESSAGE CALL WITH COMMON HEADER 
} GO DUMP REGISTERS 

;ASCII MESSAGE CALL WITH COMMON HEADER 
; GO DUMP REGISTERS 

'*?n.U.-ISSSAGE CALL WITH COMMON HEADER 

; ANY ATTENTIONS ACTIVE ? 

? NO, CONTINUE 

' ^?S« n^fi^Q"*^ WHICH DRIVE IT IS 

; SAVE ADDRESS OF DATA BUFFER 

; CAN DATA BUFFER BE READ ? 

; YES, CONTINUE 

t NO, LOAD ADDRESS OF ZERO 

?ERROR DURING DATA XFER 



***************** 



(-•OV 
JSR 

PTS 

JSP 

TST 
RTS 



RO,RHDB 

R5, CLEAR 

R5 

R5, CLEAR 

(R5) + 



******************* *****it^ 
J^DUMP^RHll AND RS REGISTERS 
************************i*******tt****ii^it 
} RESTORE DATA BUFFER ADDRESS 
; GO CLEAR OUT ERRORS 
? ERRORS DETECTED, RETURN 
; GO CLEAR„OUT ANY ERRORS 
; NO ERRORS, SKIP RETRY 
} RETURN OK 
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000010 000752 

007777 €00744 

000 736 

C00732 000732 



m mm 

000726 

;22Si& 9i?2317 

mill 000710 

oomoo 000700 



DROP: 



000650 

^?^BU' hVS^' ^^^^^^' 003214- 
002350' 00*^207 



MOV 

MOV 

my 

CLP 

8 IT 

BWF 

I^'c 

ASL 
BIT 
BRO 
RTS 

Bin 

RTS 
MOV 
RTS 



'^RSAS^Rl 

ftRHCS5^R4 

»RIT0|rR2 

P3 

R3 
R2 
«PfT8,R2 

PC 

#7,R4 
R3,R4 
P4,flPHCS2 



' i?,1r<THS..*nBNTI0N SUMMARY 

' fftVE THE STATUS REGISTER 

■ SET POINTER TO DRIVE 

t ZERO THE HRIVE COUNTER 

tit Eglri'"""""?"""""""" 

NO, GO AGAIN 

SOf^EBODY LIED — NO ATTENTIONS SET 

CLEAR OUT OLD UNIT NUMBER 
LOAD^THE NEW UNIT NUMBER 
RESTORE THE STATUS REGIST^IR 



ADD 
CMP 
BPL 
CLR 
MOV 
RTS 



tt«.,BLKl 
*40§5.,BLK1 

h!ki 



? STEP TO NEXT BLOCK 

? ALL BLOCKS DONE ? 

; NO, CONTINUE 

; yes, start over 

; return'^*'^^'^'^ ^^°^^ ^^^ ^^*° 



INC 

BICP 

CMP 

BEQ 

ASP 

BCC 

BP 

BISB 

MOV 

MOV 

RTS 



DRVVE 

»RIT3/FLAG 
ifo., DRVVE 

DRIVE 

DRV ADR 

25 

#PIT3,FLAG 

#-l/DRYVE 

DVICE, DRIVE 

PC 



COUNT A DRIVE 
CLEAR END OF DRIVES FLAG 
ALL DRIVES CHECKED ? 
^i^'rSQ.iy^ END OF DRIVES 
^P/ l^ NEfT DRIVE CHOSEN ? 
REfuRN ANOTHER DRIVE 
ilLI^D^OF DRIVES FLAG 
RESET DRIVE COUNTER 
PfTORE CHOSEN DRIVES 



dHve, 



RO 



MOV 
MQV 

BEQ 
ASL 
DEC 
BK'F 
RIC rI/DVICE 



n 



********* 



CTOAS^ BEGIN, DPVVE/ADRl 

• ****** 

PTS 



; INITIALIZE DROP PICKER 

; GET THE DRIVE NUMBER 

/ IF DRIVE GO DROP IT 

7 POINT TO NEXT DRIVE 

; IS THIS THE ONE ? 

? NO, LOOK AGAIN 
^? DROP THE DRIVE 
****** **ii***'k****iticint»ieint*ititi,i,iiciti, 



t******* 



************ *****it**iti,**i,-i,i,itit^i, 1,^,1^ f^^^^^ 

f'C } RETURN 



********* 



******** 



554 
^55 
556 
557 

558 
559 



^61 
5 64 
565 
56*^ 
c;^7 
56fi 
56Q 
570 
571 
572 
573 
574 
5 75 
5-76 
577 
57*3 
579 

5B1 
5R2 
583 
584 
5R5 
58*^ 
5R7 
5Rf^ 
SRq 
5 90 
591 
592 
503 
594 
595 
596 
597 

5^9 
60(; 

602 
603 
6*^4 



00 4767 
132767 



. _16U 
L'2366 
j2372 



C 1241';- 

1^^2422' 
24 26- 
^ '2430- 
V)2454- 
no 24^0 • 
" ; 2 4 4 -1 ' 
"( 244^ - 
02 452- 
':n?454- 
^■•246':- 



'.127 67 

CC45t7 
'^0 45 67 

l'.4/I^7 
10 4 4^7 
r^C^dfi 
''•^■1364 
3 53 67 
0^13 56 
'■'0 4767 
n2''67 



mm 

1776 4 4 

0<^010 



(inn 

176534 

0C0126 

''COO^O- 

nooo'v:- 

000514 

oor5iu 

000056 

'.cno^6 



"i2'1^6'' 10 44{'=^ rc^ooo" 



002^74' 
n r. 2=^00 - 
''0?5''>6- 



^'-'2512- 

•;25i6- 

CC2526- 
00 2532- 
-.125.3/1' 

002544- 
"0 255 2- 

':0 25 54- 
0;25 62- 

fC257(>' 

002^(1;' 

0260 4 ' 

Oi 261(;' 
0,l2612- 



n0476^ 
lii44«'3 
00>^727 
r,f,P207 



014167 

o;r-2 67 

005721 
'157 2 2 

0;7767 

r <_■<■) 2 rf 



C00C0 3 - 



175 3 7;) 
n'536^' 
175365 
17^35'? 



C0146G 
r 01. 45 2 



'ODULE 

007215 
00055? 
'•.■ns42 



175420 
004222- 

00 45 66- 



17b334 
175330 
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lCr~jii 
'•*-7 2nr r 

13270'^ 
0^ 1401 
If. '^2'^ 5 
'.'57 2'= 

■TO ('20'^ 



^KOOO 



001442 RFAOV: 



1$: 



,?v gvleL^llvE 

JSR PC.DRVADR 

BITP i^BIT3,FLAG 

PKE 35 

^OV filO, CLOCK 

MOV #77777, CLK 
JSR R5, CLEAR 
JSR R5, READY 
BP !<: 
BREAKS, BEGIN 
BPFAKS, BEGIN 



DEC 
BNF 
DEC 
BNf 
JSR 
MOV 



CLK 

2<; 

CLOCK 

4?; 

PC/FRSUPl 
»6,ERRTYP 



', GET A DRIVE ADDRESS 

? ALL DRIVES CHECKED ? 

>Jl^/i PETURN 

'M^yP LARGE TIMEOUT ROUTINE 

riEf^liElfXii ""^ ^° ^" "P T° SPEED 

?,XSSft CONTINUE 

!I5SE"SA'';X R^TtJRN TO MONITOR.... 

rSI?T'i!!iPS!^RP/^'^^ INSTRUCTION. 

; YES 

JTIME? 

?N0 CONTINUE WAITING 

fntS^Sr^^FSSR INFORMATION 
**l2feYI£l NOT READY 
***♦*********♦******, *^,,^jj^^^^^^^^^^^^^ 



SEQ 0014 



HOnrte vvrrxi .moft:. "•'-"-'••'«'»«»'"?"***»«**«**»**»** 



JSP PC, DROP 
MSGN$,nEGlfi,DRP ;ASCII 

RTS PC 



MOV 
MOV 
MOV 
MOV 
TST 
TST 
MOV 
MOV 
RTS 



MOV 

MOV 

TSTB 

PPL 

PIT 

PEQ 

BIT 

PEQ 

RTS 

TST 

PTS 



-(R1),ASB 

R1,SBADR 

-(R?),AWAS 

P2,WASADR 

(Pl) + 

(P2) + 

RHCS1,CSRA 

|!lRHCSl,ACSR 

PC 



2Eni''95»cs2 

«PSDS,RO 

PO 

IS 

«PITR,RO 

IS 

#PIT12,R0 

R5 



»^„y9< f'SOP THE DRIVE 
? RETURN 



LOAD THE DATA 

LOAD ADDRESS OF DATA READ 
RESFT REG. I " 

RESET REG. 2 
LOAD ADR OF CURRENT CSR 
LOAD CONTENTS OF CURRENT CSR 



LOAD UNIT ADDRESS 

SAVE^STATUS IN REG. 

DRIVE PEADY ? 

NO 

DRIVE PRESENT ? 

NO 

MEDIUM ON-LINE ? 

RETURN, READY 



SHUP^S^l^^^ SYSTEM EVKRCISPR MODULE 
XRSAI0.P13 12-0CT-7fl 12:16 



175166 
001376 
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001306 

001302 

175032 

000454' 

17S024 



HOV 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 

m 

TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
BIT 
BEQ 
TST 
MOV 
TST 
MOV 

MOV 
MOV 
MOVB 



R0,RHCS1 

(p6) + 

RO^RHRA 

(ROU 

RO/RSDA 

(P0) + 

R0,PHCS2 

(PO)* 

RO,RSDS 

(P0) + 

RO,PSFR 

roJrsas 

<P0)* 

RO,PSLA 

R0,PHD8 
(PC) + 
ro,psmr 

(PO)* 

RO,RSpT 
|ADDR22,RES1 

RO^PSPftE 
(P0) + 

R0/RSCS3 

VECTOR,R0 



} GET DEVICE ADDRESS 

J GENERATE REGISTER ADDRESSES 



002766' 00^^207 



;22 BIT ADDRESSING? 



GET VECTOR ADDRESS 

SET POINTER JUST IN CASE 

SET PRIORITY 



RSAl DEC/Xll SYSTEM EyEOCISSP MOni?LS 
XRSAIu.Pll l2-nCT-78 12:16 
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648 

m 
%^\ 

653 
654 
655 
656 
657 
658 
659 

llf 

662 

663 
664 
565 

m 

668 
669 
670 

m 

673 
674 
675 
676 
677 
678 
679 
6 80 
681 
682 
683 
684 
685 
686 
687 
688 
689 



012777 
'^12767 
105777 
100 420 
104407 
1044f^7 
00 5367 
0yl366 

nm^ 

003042' 104405 
0030S0' C0C2C7 



O03052' 
003056' 
003062' 
003J64' 

mm- 

0D310U' 
0C31C6' 
003114' 
003116' 
003122' 
003124' 
0U313C" 



004767 
?0 5767 
00143 4 
00 47 67 

umi 

016777 
03 2777 

f^'JlO'^3 
00 4567 
000760 
00 4767 
^12767 



003136' 104405 



003144' 

003152' 
^^03154' 



10 440 3 
00C744 
0C0207 



000040 
r77777 
001212 

000000' 

mm 

ocoooo- 



001226 

O00154 



175044 
004222' 



RSZET: 
H: 



177274 
00126 

177146 

rOOOlO 001517 

t^m mm 



004567 176034 



177164 

000506 174750 



OCOOOO* 004223' 
000000' 004566' 



2$! 
3$: 



4S: 

5$: 



SEQ 0016 



MOV 

MOV 

TSTP 

BMI 

PPEAK 

BREAK 

DEC 

BNE 

CLR 

MOV 

• **** 

HPDER 

• **** 

RTS 

JSR 

TST 

BEQ 

JSF 

BITP 

BNE 

MOV 

PIT 

BNF 

JSR 

PR 

JSP 

MOV 



PIT5,flRHCS2 
77777, CLi^ 
"HCSl 

S, BEGIN 

$/RFGIN 
CLK 
1? 
"VICE 



} ISSUE AN RHll INIT 
} SET THE TIMER 
; CONTROLLER READY ? 
; YES, CONTINUE 

JTEMPORARY RETURN TO MONITOR.... 
rSuV^oM^'SRE"."'" INSTRUCTIOH. 
J YES 
-NP.£„SpT_TO..DROP_THE MODULE 






fiPDE 

MSG 

BR 

RTS 



./BEGIN, TABLE 
************* 

PC 

PC,NOTPDY 

UVfcE 

6< 

PC/DRVADR 

«PTT3,FLAG 

DPYVE-I1RHCS2 
tfl74CO0,(aPSDT 

R5, CLEAR 

PC, DROP 
#6,ERPTYP 
****************j 

RS4BEGIN, TABLE 

**5r *************** i 

$,PEGIM,DPP ; ASCII 
PC 



**********»***»*«» 

} CONTROLLER NOT READY 
**************************** *^^^^^^^^^^^^^^^ 

; RETURN 

■ NO, RETURN 

GET A DRIVE NUMBER 



ALL DRIVES RESET ? 
YES, RET 



. ^TURN 
NO, LOAD NEXT DRIVE ADDRESS 
IS THIS AN RS DISK ? 
NO, GO DROP IT 
GO CLEAR OUT ANY ERRORS 
KEEP GOING 
DROP THE NON-RS DRIVE 

K9LA5 RS OR NOT READY 
**********#********»**********^^^^j^^^^j^ 

^NOT AN RS DRIVE 

************* **************^^i^^^^^^^^^^^ 

SSAGE CALL WITH COMMON HEADER 
MAKE SURE ALL GET RESET 
RETURN 
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DLTCNT: 


n 




CLK: 







clock: 







§!:«•: 


n 




E 




CNT: 




BSI7.: 


c 




FUNC: 







5D0 NOT 
PU«: 


CHANGE 


THE ORDER OF THE NE 


§ 




xmem: 




PA 22: 







im\ 


1 




ovice: 




DRIVE: 


^ 




DRYVE: 
WCNTl: 




d 




WCNT2: 







BUFIN: 


.blkw 


256. 


table: 






RHCSl; 
RHCS2: 


8 






RHWC: 







im\ 


f 




RSDS: 




RSER: 
RSAS: 


S! 




2 






c 




RHDB: 







rsmr: 


1 




RSDT: 




RSBAE: 


1 




RSCS3: 






iimi 




MB SI: 


.A SCI 7. 


' TRANSFER ERROR% 



NEXT FOUR LOCATIONS 



MASSBUS PARITY ERRORf 



MASSBIJS DATA PARITY ERROR** 



044522 
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■Ik 




mm 










004407- 
004414' 
004422' 
004430' 
004436- 

imtr- 

004454- 

urn- 

0Q4510' 
064516- 
004524- 

umv- 

004534- 
004536- 

5^4540- 
554542- 



004544 

004546- 

004550- 

004552- 

0Q4554- 

004556- 

miw- 

O04564- 
004566- 

^y'*S7Q- 
004572- 
004574' 

mm- 
umr- 

004610' 

00 4612- 
U04613- 
004614- 
004615' 



40 
C5012Q 
051040 
424 40 
042504 

0200 40 

m^ 

042101 
05 2?^1 

mm 

4303- 



042105 
052105 
041530 
022504 

um 

053440 
041455 



177 
004 
177777 

mw 

0U4443- 
004422- 
177777 
004454- 

Vim[ 

nnn 

004375' 

nmi 

mw 

00 0005 

oco 

IP. 



047522 
000045 
054522 
042505 
000 
051127 

044522 
042510 



020040 042522 



§i2446 
000045 



,640 
HOl 



042040 
040514 
051122 



MES5: 
MES6: 

MES7: 
ME SB: 

MSS<J: 

MESIO: 

TRSRR: 
MCPERR' 
MDPERR: 
EXCEDli 

EXCED2: 

EXCED3; 

drp: 

DLTERR' 

ADRl: 

NUMB: 



TRYl: 
TRY2: 
TRY3: 
FLAG: 



.ASCI2 
.ASCIZ 

.ASCIZ 
. ASCIZ 

.ASCIZ 
.ASCIZ 



.EVEN 

177777 

MSS2 

177777 

ll?'?77 
MES7 

lf?777 
MFSB 

17'?777 

MFS9 

MES6 

177777 

MES4 

Nf'MP 

MES5 

177777 

•Ml 

.BYTE 

.BYTE 
.BYTE 
.BYTE 



npOPPEDt' 
RETRY EXCEEDED*- 

WRITE- 
WRITE-CHECK- 

READ- 

DATA LATE ERRORI^- 



OOOOO] 
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ACSR 

AST*T 

AHAS 

BEGIN 
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= 001 



w 



50tf!4R 
OOllOR 




W 

367 635 

mi 

584* 
409 



IIW 



462 

mi 
m 

400* 

709# 
284 



453* 

min 

530* 
323 

Eh 

247* 
229 
220 
377* 



458 



599 

432 

275 277 

265 527 

652 



345 
694« 

566 
401* 



653* 
692# 



690« 

535* 
539« 

m 
II? 



40 6 



442 

533 



597 
351 

656 

411* 



562 
658* 



555* 
576 

IIV 

365 
25P 

379 



m m m 



m 

436 



501 



m m m m 



454 
557 



391 
657 
427 



676 
691« 



705# 
678 

670 



522 



693« 



t 



) 



545* 



§50 
565 



549 
660* 



ir w» *" 



70 6# 



RSAI DEC/Xll SV 
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STEM EXER 
2-0CT-78 
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SEQ 0020 



GWBUF$= 
HRDCNT 



000i22R 

oooooo 



mi 



000000 



196» 

in 

316 

m' 

214# 

mi 

282« 
346 

Il6« 
222« 

178» 

m 

203« 
215# 

222« 
477 

757» 

mi 
nn 

752* 
755f 
157tt 

Ilk 



195 



488* 
588fl 



nh 


277* 


395* 


353* 


380* 


381 


30 7 






358 


365(f 




491 


574 


663 



308 

28 
31. 
667 



165 
197 



442* 



7 32i« 



316 
325 



I 



166 
198 



167 
200 



184 
201 



185 
202 



186 
205 



187 
206 



188 
208 



189 
209 



190 
211 



191 
212 



) 
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"4mr 

005726 
022626 
COOOf G 

00064U 

Mm 

000 2 40 

rt 5 3 f. ■■' 

omA6 

nine 

nnif^ 



m 



v> 



374 
70' 

38 



70 1» 
"85 
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222* 
699ft 



\%\ 




355 


m 




\w 




5Q3^ 


iw 


635 



nnr.662R 

mm 

00423GR 

O04244R 
054226R 
00t364R 
004240R 
004252R 

imn 

004234P 
004250R 
064236R 
O04242R 
004246<? 

000112'^ 
COOlySR 
002614R 
00C042R 
1044'>6 



369 

444 

462 

630* 

614* 

499 



W 

403* 
35 4* 

4R1 
723# 



357* 61fi* 715ft 

622* 716# 

634* 67-3 722» 

717« 



375* 

458 

4B5 

720# 

7131 

626* 



616* 
465 

506 



714# 

588 

514* 



iW' m* mt n2, 



RSAI DEC/Xll 
XRSAIO.Dll 
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000? 46R 
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COPj 16P 

C00ri2 2R 
')0f;024R 
'^ f^ 5 ^ 9 

'^O0 4'^4f' 

ounof2P 
rcrg6iP 

rono7L'R 

C'JC''^72'' 
fyOJ76R 

ruO0 5 2'~' 

n.-,422?R 

n6 4?j3c'P 



SPSIZ 

SRI 

SR2 

SR3 

SR4 

STRT 

s?r6 

§VRi 

SVR2 

SVR3 

SVR4 

SVR5 

SVR6 

SYSCNT 

TABLE 

TRERR 

TRPDFD= CU<''J2 

TRYl "■--' 

TRY2 

TRY3 

VECTOR 

WASADP 

WBUFEA 

WBUFPA 

WBUFRQ 

WBUFS7. 

WCNTl 

WCNT2 

WDFR 

WDTO 

WRITCf 

WRITE 

XFLIG 

XMEM 

ZERO 



?* J4612'v 
''54613P 
f;»14614P 

nonoijR 

000116^* 

' mn 

. )ol42P 
OC'3216P 
032 2<:f^ 
r00116p 
OC^.IHP 
002132^^ 
O^^t : 3 2f> 
00 7 60,^ 

f^)320C'R 

- ni"»ifii6P 



I77tt 

"15 

164» 
165# 

166/J 
167S 
170 

I6grt 

257ft 
.B4lf 

:.t?5« 
:.86« 
' m^ 

09« 
_90JJ 

79« 
470 
474 
222tf 
271* 
305* 
272* 

l04t 
2)9« 

21H 
259* 
254* 

mi 

403 

2 8^ 

273 

I5fltt 

345* 

4P7 

2B5 



SEQ 00 22 



215 
321 



222» 
266 



297* 
3C6 



585* 

345 

343 

259 

260* 

255* 

222* 

223* 

499« 

347« 

341# 

703« 
709tf 



298 
788« 
314 
64 2 

351 
349 

396 
342 
354 



357* 
783« 



3 48 
708ff 



370* 
7R6ff 



372* 






ERRORS DrT'^:rTFn: o 

DEFAULT OLOPALS nENEPATEn; '} 
RUN-TI"F t^ATIO: 21/4=4.6 
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